home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
TUTOR150.ZIP
/
FIDO.MOD
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1995-06-09
|
15KB
|
446 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
String STRING001
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
String STRING007
String STRING008
String STRING009
String STRING010
String STRING011
String STRING012
String STRING013
String STRING014
String STRING015
String STRING016
String STRING017
String STRING018
Declare Function FUNCTION001() String
;------------------------------------------------------------------------------
FOpen 1, PPEPath() + "TUTOR.CFG", 0, 0
FGet 1, STRING001
FGet 1, STRING002
FGet 1, STRING004
FGet 1, STRING003
FGet 1, STRING005
FGet 1, STRING007
FGet 1, STRING008
FGet 1, STRING009
FGet 1, STRING010
FGet 1, STRING011
FGet 1, STRING012
FGet 1, STRING013
FGet 1, STRING014
FGet 1, STRING015
FGet 1, STRING016
FGet 1, STRING017
FCloseAll
Select Case (STRING017)
Case "YES"
Goto LABEL002
Case "NO"
End Select
:LABEL001
AnsiPos 1, 4
PrintLn "@X70│ @X70│@X01 @X17║@X3B@X01░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X17║@X07"
AnsiPos 1, 5
PrintLn "@X70│ @X70│@X01 @X17║@X01░░@X07@X40┌──────────────────────────────────────────────────@X4C┐@X37@X01░░@X17║@X07"
AnsiPos 1, 6
PrintLn "@X70│ @X70│@X01 @X17║@X01░░@X07@X40│ @X4C│@X01░░@X17║@X07"
AnsiPos 1, 7
PrintLn "@X70│ @X70│@X01 @X17║@X01░░@X07@X40│ @X4C│@X01░░@X17║@X07"
AnsiPos 1, 8
PrintLn "@X70│ @X70│@X01 @X17║@X01░░@X07@X40│ @X4C│@X01░░@X17║@X07"
AnsiPos 1, 9
PrintLn "@X70│ @X70│@X01 @X17║@X01░░@X07@X40│ @X4C│@X01░░@X17║@X07"
AnsiPos 1, 10
PrintLn "@X70│ @X70│@X01 @X17║@X01░░@X07@X40│@X4FWe are sorry but, this area of the tutorial is @X4Enot@X4C│@X01░░@X17║@X07"
AnsiPos 1, 11
PrintLn "@X70│ @X70│@X01 @X17║@X01░░@X07@X40│ @X4Fcurrently available because there are @X4Eno @X4FFIDOnet @X4C│@X01░░@X17║@X07"
AnsiPos 1, 12
PrintLn "@X70│ @X70│@X01 @X17║@X01░░@X07@X40│ @X4Fconferences online at this time. @X4C│@X01░░@X17║@X07"
AnsiPos 1, 13
PrintLn "@X70│ │@X01 @X17║@X01░░@X07@X40│ @X4C│@X01░░@X17║@X07"
AnsiPos 1, 14
PrintLn "@X70│ @X70│@X01 @X17║@X01░░@X07@X40│ @X4C│@X01░░@X17║@X07"
AnsiPos 1, 15
PrintLn "@X70│ @X70│@X01 @X17║@X01░░@X07@X40│ @X4C│@X01░░@X17║@X07"
AnsiPos 1, 16
PrintLn "@X70│ @X70│@X01 @X17║@X01░░@X07@X40│ @X4C│@X01░░@X17║@X07"
AnsiPos 1, 17
PrintLn "@X70│ @X70│@X01 @X17║@X01░░@X07@X40│ @X4C│@X01░░@X17║@X07"
AnsiPos 1, 18
PrintLn "@X70│ @X70│@X0F @X17║@X01░░@X07@X40│ @X4C│@X01░░@X17║@X07"
AnsiPos 1, 19
PrintLn "@X70│ @X70│@X01 @X17║@X01░░@X40└@X4C──────────────────────────────────────────────────┘@X01░░@X17║@X07"
AnsiPos 1, 20
PrintLn "@X70│ │@X01 @X17║@X01░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X17║@X07"
AnsiPos 1, 21
PrintLn "@X70└──── Options ────┘@X01 @X17╚════════════════════════════════════════════════════════╝@X07"
AnsiPos 1, 22
PrintLn " "
AnsiPos 1, 22
Wait
Goto LABEL007
:LABEL002
AnsiPos 1, 4
PrintLn "@X70│ @X6F @X60(@X6FM@X60)@X67ain Menu @X6F @X78▄ @X70│@X01 @X17║@X05░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X17║@X07"
AnsiPos 1, 5
PrintLn "@X70│ @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01 @X17║@X09@X05░░@X0D┌──────────────────────────────────────────────────┐@X05░░@X17║@X07"
AnsiPos 1, 6
PrintLn "@X70│ @X70│@X01 @X17║@X09@X05░░@X0D│@X4F FIDONET @X0D│@X05░░@X17║@X07"
AnsiPos 1, 7
PrintLn "@X70│ @X70│@X01 @X17║@X09@X05░░@X0D│ @X0D│@X05░░@X17║@X07"
AnsiPos 1, 8
PrintLn "@X70│ @X70│@X01 @X17║@X05░░@X0D│ @X0C[@X0E1@X0C] @X0FWhat is the FIDOnet? @X0D│@X05░░@X17║@X07"
AnsiPos 1, 9
PrintLn "@X70│ @X70│@X01 @X17║@X05░░@X0D│ @X0C[@X0E2@X0C] @X0F@X0BFIDOnet Etiquette @X0F- How to properly use @X0D│@X05░░@X17║@X07"
AnsiPos 1, 10
PrintLn "@X70│ @X70│@X01 @X17║@X05░░@X0D│ @X0FFIDOnet. @X0D│@X05░░@X17║@X07"
AnsiPos 1, 11
PrintLn "@X70│ @X70│@X01 @X17║@X05░░@X0D│ @X0C[@X0E3@X0C] @X0FFREQ's (File Requests) @X0D│@X05░░@X17║@X07"
AnsiPos 1, 12
PrintLn "@X70│ @X70│@X01 @X17║@X05░░@X0D│ @X0D│@X05░░@X17║@X07"
AnsiPos 1, 13
PrintLn "@X70│ │@X01 @X17║@X05░░@X0D│ @X0D│@X05░░@X17║@X07"
AnsiPos 1, 14
PrintLn "@X70│ @X70│@X01 @X17║@X05░░@X0D│ @X0D│@X05░░@X17║@X07"
AnsiPos 1, 15
PrintLn "@X70│ @X70│@X01 @X17║@X05░░@X0D│ @X0D│@X05░░@X17║@X07"
AnsiPos 1, 16
PrintLn "@X70│ @X70│@X01 @X17║@X05░░@X0D│ @X0D│@X05░░@X17║@X07"
AnsiPos 1, 17
PrintLn "@X70│ @X70│@X01 @X17║@X05░░@X0D│ @X0D│@X05░░@X17║@X07"
AnsiPos 1, 18
PrintLn "@X70│ @X70│@X0F @X17║@X05░░@X0D│ @X0D│@X05░░@X17║@X07"
AnsiPos 1, 19
PrintLn "@X70│ @X70│@X01 @X17║@X05░░@X0D└──────────────────────────────────────────────────┘@X05░░@X17║@X07"
AnsiPos 1, 20
PrintLn "@X70│ │@X01 @X17║@X0B@X05░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X17║@X07"
AnsiPos 1, 21
PrintLn "@X70└──── Options ────┘@X01 @X17╚════════════════════════════════════════════════════════╝@X07"
AnsiPos 1, 22
PrintLn " "
AnsiPos 1, 22
STRING006 = " "
While (Upper(STRING006) <> "E") Do
STRING006 = FUNCTION001()
If (STRING006 == "END") Goto LABEL007
If (STRING006 == Chr(13)) Goto LABEL006
If (Upper(STRING006) == "1") Then
Goto LABEL003
Continue
Endif
If (Upper(STRING006) == "2") Then
Goto LABEL004
Continue
Endif
If (Upper(STRING006) == "3") Then
Goto LABEL005
Continue
Endif
If (Upper(STRING006) == "M") Then
Goto LABEL007
Continue
Endif
If ((Upper(STRING006) == "E") || (Upper(STRING006) == "e")) Then
Goto LABEL007
Endif
EndWhile
End
;------------------------------------------------------------------------------
Function FUNCTION001() String
While (FUNCTION001 == "") Do
FUNCTION001 = Inkey()
EndWhile
EndFunc
:LABEL003
AnsiPos 1, 4
PrintLn "@X0F@X70└─ @X7F100% Viewed @X70─┘@X07 @X17║ @X0A @X0EWHAT IS FIDONET? @X17 ║@X07"
AnsiPos 1, 5
PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
AnsiPos 1, 6
PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
AnsiPos 1, 7
PrintLn "@X17║ @X07│ @X0AFIDOnet @X0Fis a amateur network started by Tom Jennings, who wrote @X07│@X17 ║@X07"
AnsiPos 1, 8
PrintLn "@X17║ @X07│ @X0Fsoftware called FIDO. Thus FIDOnet is a copyrighted term. It started as @X07@X07│@X17 ║@X07"
AnsiPos 1, 9
PrintLn "@X17║ @X07│ @X0Fa way for SysOps to communicate with each other. @X07│@X17 ║@X07"
AnsiPos 1, 10
PrintLn "@X17║ @X07│ @X0FNetmail was (and still is) its primary responsibility. @X07│@X17 ║@X07"
AnsiPos 1, 11
PrintLn "@X17║ @X07│ @X07│@X17 ║@X07"
AnsiPos 1, 12
PrintLn "@X17║ @X07│ @X07│@X17 ║@X07"
AnsiPos 1, 13
PrintLn "@X17║ @X07│ @X07│@X17 ║@X07"
AnsiPos 1, 14
PrintLn "@X17║ @X07│ @X07│@X17 ║@X07"
AnsiPos 1, 15
PrintLn "@X17║ @X07│ @X07│@X17 ║@X07"
AnsiPos 1, 16
PrintLn "@X17║ @X07│ @X07│@X17 ║@X07"
AnsiPos 1, 17
PrintLn "@X17║ @X07│ @X07│@X17 ║@X07"
AnsiPos 1, 18
PrintLn "@X17║ @X07│ @X07│@X17 ║@X07"
AnsiPos 1, 19
PrintLn "@X17║ @X07│ Text by: Donna Ransdell 1:202/1311 @X07│@X17 ║@X07"
AnsiPos 1, 20
PrintLn "@X17║ @X07└─────────────────────────────────────────────────────────────────────────┘@X17 ║@X07"
AnsiPos 1, 21
PrintLn "@X17╚═════════════════════════════════════════════════════════════════════════════╝@X07"
AnsiPos 1, 22
PrintLn " "
AnsiPos 1, 22
Wait
Goto LABEL002
:LABEL004
AnsiPos 1, 4
PrintLn "@X0F@X70└─ @X7F 33% Viewed @X70─┘@X07 @X17║ @X0A @X0EHow To Use FIDOnet @X17 ║@X07"
AnsiPos 1, 5
PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
AnsiPos 1, 6
PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
AnsiPos 1, 7
PrintLn "@X17║ @X07│ @X0FConferences on FIDOnet are known as @X0F'@X0Bechoes@X0F'. @X07│@X17 ║@X07"
AnsiPos 1, 8
PrintLn "@X17║ @X07│ @X0FThere are three @X0C(@X0E3@X0C) @X0Ftypes of echoes, Local, Regional and National/ @X07@X07│@X17 ║@X07"
AnsiPos 1, 9
PrintLn "@X17║ @X07│ @X0FInternational. @X07│@X17 ║@X07"
AnsiPos 1, 10
PrintLn "@X17║ @X07│ @X0FLocal echoes are only carried on local bbs systems. A regional echo is @X07│@X17 ║@X07"
AnsiPos 1, 11
PrintLn "@X17║ @X07│ @X0Fan echo that is carried in only one net or region. A national/inter- @X07│@X17 ║@X07"
AnsiPos 1, 12
PrintLn "@X17║ @X07│ @X0Fnational echo goes out of the region and you can find yourself chatting @X07│@X17 ║@X07"
AnsiPos 1, 13
PrintLn "@X17║ @X07│ @X0Fwith someone across the country or in another country. @X07│@X17 ║@X07"
AnsiPos 1, 14
PrintLn "@X17║ @X07│ @X0F @X07│@X17 ║@X07"
AnsiPos 1, 15
PrintLn "@X17║ @X07│ @X0F@X0AHow are echos run? @X07│@X17 ║@X07"
AnsiPos 1, 16
PrintLn "@X17║ @X07│ @X0FEach echo has a moderator or host/hostess, that sets the tone for the @X07│@X17 ║@X07"
AnsiPos 1, 17
PrintLn "@X17║ @X07│ @X0Fparticipants. Echo rules and guidelines are usually posted monthly. @X07│@X17 ║@X07"
AnsiPos 1, 18
PrintLn "@X17║ @X07│ @X0FA list of moderators can be found in a file called @X0BELIST @X0Fwhich is also @X07│@X17 ║@X07"
AnsiPos 1, 19
PrintLn "@X17║ @X07│ @X0Fpublished monthly. @X07│@X17 ║@X07"
AnsiPos 1, 20
PrintLn "@X17║ @X07└─────────────────────────────────────────────────────────────────────────┘@X17 ║@X07"
AnsiPos 1, 21
PrintLn "@X17╚═════════════════════════════════════════════════════════════════════════════╝@X07"
AnsiPos 1, 22
PrintLn " "
AnsiPos 1, 22
Wait
AnsiPos 1, 4
PrintLn "@X0F@X70└─ @X7F 67% Viewed @X70─┘@X07 @X17║ @X0A @X0EHow To Use FIDOnet @X17 ║@X07"
AnsiPos 1, 5
PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
AnsiPos 1, 6
PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
AnsiPos 1, 7
PrintLn "@X17║ @X07│ @X0AWhat kinds of rules are common? @X07│@X17 ║@X07"
AnsiPos 1, 8
PrintLn "@X17║ @X07│ @X0FMost moderators seem to use the Golden rule as an example: @X07@X07│@X17 ║@X07"
AnsiPos 1, 9
PrintLn "@X17║ @X07│ @X0DDo (write) unto others as you would have them do (write) unto you. @X07│@X17 ║@X07"
AnsiPos 1, 10
PrintLn "@X17║ @X07│ @X0FBe nice, play fair, no foul language, stay on topic and dont over @X07│@X17 ║@X07"
AnsiPos 1, 11
PrintLn "@X17║ @X07│ @X0Fquote. @X07│@X17 ║@X07"
AnsiPos 1, 12
PrintLn "@X17║ @X07│ @X07│@X17 ║@X07"
AnsiPos 1, 13
PrintLn "@X17║ @X07│@X0A MESSAGE TRAFFIC @X07│@X17 ║@X07"
AnsiPos 1, 14
PrintLn "@X17║ @X07│ @X0FAll bbs's in FIDOnet have an address. It is broken down into @X07│@X17 ║@X07"
AnsiPos 1, 15
PrintLn "@X17║ @X07│ @X0F@X0BZONE@X0C: @X0BNET@X0C/@X0BNODE @X0Fnumber, @X0C/@X0BPOINT @X0Fnumber (optional). @X07│@X17 ║@X07"
AnsiPos 1, 16
PrintLn "@X17║ @X07│ @X0FFor example @X0B1@X0C:@X0B202@X0C/@X0B511 @X07│@X17 ║@X07"
AnsiPos 1, 17
PrintLn "@X17║ @X07│ @X0FZone 1 signifies North America, 202 is NET202 (all of area code 619) @X07│@X17 ║@X07"
AnsiPos 1, 18
PrintLn "@X17║ @X07│ @X0F511 is a specific 'box' number within NET 202. @X07│@X17 ║@X07"
AnsiPos 1, 19
PrintLn "@X17║ @X07│ @X07│@X17 ║@X07"
AnsiPos 1, 20
PrintLn "@X17║ @X07└─────────────────────────────────────────────────────────────────────────┘@X17 ║@X07"
AnsiPos 1, 21
PrintLn "@X17╚═════════════════════════════════════════════════════════════════════════════╝@X07"
AnsiPos 1, 22
PrintLn " "
AnsiPos 1, 22
Wait
AnsiPos 1, 4
PrintLn "@X0F@X70└─ @X7F100% Viewed @X70─┘@X07 @X17║ @X0A @X0EHow To Use The FIDOnet @X17 ║@X07"
AnsiPos 1, 5
PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
AnsiPos 1, 6
PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
AnsiPos 1, 7
PrintLn "@X17║ @X07│ @X0AWhat is NETMAIL and how does it differ from ECHOMAIL? @X07│@X17 ║@X07"
AnsiPos 1, 8
PrintLn "@X17║ @X07│@X0F Netmail is a personal message. If you want to send someone a message @X07@X07│@X17 ║@X07"
AnsiPos 1, 9
PrintLn "@X17║ @X07│@X0F that you don't want everyone to read send it NETMAIL if you can. @X07│@X17 ║@X07"
AnsiPos 1, 10
PrintLn "@X17║ @X07│@X0F Echomail is a public messages that can be read by everyone. @X07│@X17 ║@X07"
AnsiPos 1, 11
PrintLn "@X17║ @X07│@X0F @X07│@X17 ║@X07"
AnsiPos 1, 12
PrintLn "@X17║ @X07│@X0F @X07│@X17 ║@X07"
AnsiPos 1, 13
PrintLn "@X17║ @X07│@X0F @X07│@X17 ║@X07"
AnsiPos 1, 14
PrintLn "@X17║ @X07│ @X07│@X17 ║@X07"
AnsiPos 1, 15
PrintLn "@X17║ @X07│ @X0A @X07│@X17 ║@X07"
AnsiPos 1, 16
PrintLn "@X17║ @X07│ @X07│@X17 ║@X07"
AnsiPos 1, 17
PrintLn "@X17║ @X07│ @X0F @X07│@X17 ║@X07"
AnsiPos 1, 18
PrintLn "@X17║ @X07│ @X0F @X07│@X17 ║@X07"
AnsiPos 1, 19
PrintLn "@X17║ @X07│ @X0F @X07│@X17 ║@X07"
AnsiPos 1, 20
PrintLn "@X17║ @X07└─────────────────────────────────────────────────────────────────────────┘@X17 ║@X07"
AnsiPos 1, 21
PrintLn "@X17╚═════════════════════════════════════════════════════════════════════════════╝@X07"
AnsiPos 1, 22
PrintLn " "
AnsiPos 1, 22
Wait
Goto LABEL002
:LABEL005
AnsiPos 1, 4
PrintLn "@X0F@X70└─ @X7F100% Viewed @X70─┘@X07 @X17║ @X0A @X0EFREQ's (File Requests) @X17 ║@X07"
AnsiPos 1, 5
PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
AnsiPos 1, 6
PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
AnsiPos 1, 7
PrintLn "@X17║ @X07│ @X0F@X0BFREQ @X0Fis an abbreviation for FILE REQUEST. @X07│@X17 ║@X07"
AnsiPos 1, 8
PrintLn "@X17║ @X07│ @X0FTo aid in exchanging files, a SysOp @X0F(@X0Dsystem operator@X0F) may access @X07@X07│@X17 ║@X07"
AnsiPos 1, 9
PrintLn "@X17║ @X07│ @X0Fanother SysOps files without logging onto the bbs and going through @X07│@X17 ║@X07"
AnsiPos 1, 10
PrintLn "@X17║ @X07│ @X0Fthe download motions. @X07│@X17 ║@X07"
AnsiPos 1, 11
PrintLn "@X17║ @X07│ @X0FThis saves time and ultimatley, phone bills. @X07│@X17 ║@X07"
AnsiPos 1, 12
PrintLn "@X17║ @X07│ @X0FIf you wish to ask your SysOp to @X0BFREQ @X0Fa file for you, be sure to have @X07│@X17 ║@X07"
AnsiPos 1, 13
PrintLn "@X17║ @X07│ @X0Fthe full name of the file you want @X0C(@X0Aincluding proper extension@X0C) @X0Fand the @X07│@X17 ║@X07"
AnsiPos 1, 14
PrintLn "@X17║ @X07│ @X0Fsystems fido address that has the file. @X07│@X17 ║@X07"
AnsiPos 1, 15
PrintLn "@X17║ @X07│ @X0F @X07│@X17 ║@X07"
AnsiPos 1, 16
PrintLn "@X17║ @X07│ @X07│@X17 ║@X07"
AnsiPos 1, 17
PrintLn "@X17║ @X07│ @X07│@X17 ║@X07"
AnsiPos 1, 18
PrintLn "@X17║ @X07│ @X0F @X07│@X17 ║@X07"
AnsiPos 1, 19
PrintLn "@X17║ @X07│ @X0F @X07│@X17 ║@X07"
AnsiPos 1, 20
PrintLn "@X17║ @X07└─────────────────────────────────────────────────────────────────────────┘@X17 ║@X07"
AnsiPos 1, 21
PrintLn "@X17╚═════════════════════════════════════════════════════════════════════════════╝@X07"
AnsiPos 1, 22
PrintLn " "
AnsiPos 1, 22
Wait
Goto LABEL002
:LABEL006
AnsiPos 26, 17
PrintLn "@X0B@X4F Please @XCEmake your selection @X4Ffrom the catagories @X07"
AnsiPos 26, 18
PrintLn "@X0B@X4F ABOVE or on the LEFT. @X07"
Delay 100
Goto LABEL002
:LABEL007
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 1 End
; 6 Wait
; 30 Goto
; 3 Let
; 135 PrintLn
; 11 If
; 1 FOpen
; 16 FGet
; 1 Delay
; 142 AnsiPos
; 1 FCloseAll
; 1 EndFunc
;
;
; ■ Functions used :
;
; 1 +
; 11 ==
; 1 <>
; 9 !
; 1 ||
; 7 Upper()
; 1 Chr()
; 1 Inkey()
; 1 PPEPath()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 2 While/EndWhile
; 5 If/Then or If/Then/Else
; 1 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------